﻿Imports System.Data.SqlClient

Public Class frmCuboContables

    Private Sub frmCuboContables_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStrip1.Cursor = Cursors.Hand
        ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System

        CargaEmpresas()

    End Sub
    Sub CargaEmpresas()
        ContabilidadConnection = "Server=" & Server.Trim & "\COMPAC;Database=GeneralesSql; user id = SA; password = Compac123;"

        Dim cnConn As New sqlConnection
        cnConn.ConnectionString = ContabilidadConnection

        Dim cmdBuscar As New SqlCommand
        cmdBuscar.Connection = cnConn

        Dim StrSql As String = "SELECT Nombre FROM ListaEmpresas WHERE Id>20"

        cmdBuscar.CommandText = StrSql
        Dim rdBuscar As SqlDataReader

        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        lstEmpresa.Items.Clear()

        Do While rdBuscar.Read()
            lstEmpresa.Items.Add(rdBuscar("Nombre").ToString.Trim)
        Loop
    End Sub
    Sub CargaEjercicios()
        Dim BD As String = Trim(BuscarStrDatoContabilidad("SELECT AliasBDD FROM ListaEmpresas WHERE Nombre='" & lstEmpresa.Text.Trim & "'"))
        ContabilidadConnection = "Server=" & Server.Trim & "\COMPAC;Database=" & BD & "; user id = SA; password = Compac123;"

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = ContabilidadConnection

        Dim cmdBuscar As New SqlCommand
        cmdBuscar.Connection = cnConn

        Dim StrSql As String = "SELECT Ejercicio FROM Ejercicios ORDER BY Id"

        cmdBuscar.CommandText = StrSql
        Dim rdBuscar As SqlDataReader

        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        lstEjercicio.Items.Clear()

        Do While rdBuscar.Read()
            lstEjercicio.Items.Add(rdBuscar("Ejercicio"))
        Loop
    End Sub

    Private Sub lstEmpresa_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstEmpresa.SelectedIndexChanged
        ContabilidadConnection = "Server=" & Server.Trim & "\COMPAC;Database=GeneralesSql; user id = SA; password = Compac123;"
        CargaEjercicios()

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Close()

    End Sub
    Sub TraerTodo()
        TraerAusl()
        TraerACG()
        TraerASP()
        TraerLCB()
        TraerOperadora()
    End Sub
    Sub TraerAusl()
        Dim Cubo As New clsCuboContables

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = "Server=" & Server.Trim & "\COMPAC;Database=ct2010AUSL; user id = SA; password = Compac123;"

        Dim cmdBuscar As New SqlCommand
        cmdBuscar.Connection = cnConn

        frmMain.statusActividad.Text = "Buscando registros..."
        Application.DoEvents()

        Dim StrSql As String = "SELECT S.Id,E.Ejercicio,S.IdCuenta,C.Codigo,C.Nombre,S.Tipo,Importes1,Importes2,Importes3,Importes4,Importes5,Importes6,Importes7,Importes8,Importes9,Importes10,Importes11, Importes12 FROM SaldosCuentas S INNER JOIN Cuentas C ON S.IdCuenta=C.Id INNER JOIN Ejercicios E ON S.Ejercicio=E.Id ORDER By C.Codigo,S.Tipo"

        cmdBuscar.CommandText = StrSql
        Dim rdBuscar As SqlDataReader

        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        Dim Cont As Integer = 0

        Dim Tipo As Integer = 0

        Do While rdBuscar.Read()
            Cont = Cont + 1
            frmMain.statusActividad.Text = "Insertando registros...." & Cont & " de AUSL"
            Application.DoEvents()

            Cubo.Empresa = "Autobuses Urbanos y Suburbanos de Leon SA de CV"
            Cubo.Abreviacion = "AUSL"
            Cubo.Ejercicio = rdBuscar("Ejercicio")
            Cubo.Codigo = rdBuscar("Codigo").ToString.Trim
            Cubo.Nombre = rdBuscar("Nombre").ToString.Trim
            Cubo.Cuenta = Cubo.Codigo & " " & Cubo.Nombre
            Cubo.CInforme = 0
            Cubo.CImpuestos = 0
            Cubo.Titulo = BuscarStrDatoCitra("SELECT Titulo FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.Subtitulo = BuscarStrDatoCitra("SELECT Subtitulo FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.Mayor = BuscarStrDatoCitra("SELECT Mayor FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.IdOriginal = rdBuscar("Id")

            Tipo = rdBuscar("Tipo")
            Select Case Tipo
                Case 1
                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes1")
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes2")
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes3")
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes4")
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes5")
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes6")
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes7")
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes8")
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes9")
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes10")
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes11")
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes12")
                    Cubo.Periodo = 12
                    Cubo.Insertar()
                Case 2
                    Cubo.Cargos = rdBuscar("Importes1")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes2")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes3")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes4")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes5")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes6")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes7")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes8")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes9")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes10")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes11")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes12")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 12
                    Cubo.Insertar()
                Case 3
                    Cubo.Cargos = rdBuscar("Importes1")
                    Cubo.Abonos = rdBuscar("Importes1")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes2")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes3")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes4")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes5")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes6")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes7")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes8")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes9")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes10")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes11")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes12")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 12
                    Cubo.Insertar()
            End Select
        Loop

        frmMain.statusActividad.Text = "Listo"
    End Sub
    Sub TraerACG()
        Dim Cubo As New clsCuboContables

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = "Server=" & Server.Trim & "\COMPAC;Database=ct2010ACG; user id = SA; password = Compac123;"

        Dim cmdBuscar As New SqlCommand
        cmdBuscar.Connection = cnConn

        frmMain.statusActividad.Text = "Buscando registros..."
        Application.DoEvents()

        Dim StrSql As String = "SELECT S.Id,E.Ejercicio,S.IdCuenta,C.Codigo,C.Nombre,S.Tipo,Importes1,Importes2,Importes3,Importes4,Importes5,Importes6,Importes7,Importes8,Importes9,Importes10,Importes11, Importes12 FROM SaldosCuentas S INNER JOIN Cuentas C ON S.IdCuenta=C.Id INNER JOIN Ejercicios E ON S.Ejercicio=E.Id ORDER By C.Codigo,S.Tipo"

        cmdBuscar.CommandText = StrSql
        Dim rdBuscar As SqlDataReader

        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        Dim Cont As Integer = 0

        Dim Tipo As Integer = 0

        Do While rdBuscar.Read()
            Cont = Cont + 1
            frmMain.statusActividad.Text = "Insertando registros...." & Cont & " de ACG"
            Application.DoEvents()

            Cubo.Empresa = "Autobuses Centrales de Guanajuato SA de CV"
            Cubo.Abreviacion = "ACG"
            Cubo.Ejercicio = rdBuscar("Ejercicio")
            Cubo.Codigo = rdBuscar("Codigo").ToString.Trim
            Cubo.Nombre = rdBuscar("Nombre").ToString.Trim
            Cubo.Cuenta = Cubo.Codigo & " " & Cubo.Nombre
            Cubo.CInforme = 0
            Cubo.CImpuestos = 0
            Cubo.Titulo = BuscarStrDatoCitra("SELECT Titulo FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.Subtitulo = BuscarStrDatoCitra("SELECT Subtitulo FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.Mayor = BuscarStrDatoCitra("SELECT Mayor FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.IdOriginal = rdBuscar("Id")

            Tipo = rdBuscar("Tipo")
            Select Case Tipo
                Case 1
                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes1")
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes2")
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes3")
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes4")
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes5")
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes6")
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes7")
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes8")
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes9")
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes10")
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes11")
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes12")
                    Cubo.Periodo = 12
                    Cubo.Insertar()
                Case 2
                    Cubo.Cargos = rdBuscar("Importes1")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes2")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes3")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes4")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes5")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes6")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes7")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes8")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes9")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes10")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes11")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes12")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 12
                    Cubo.Insertar()
                Case 3
                    Cubo.Cargos = rdBuscar("Importes1")
                    Cubo.Abonos = rdBuscar("Importes1")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes2")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes3")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes4")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes5")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes6")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes7")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes8")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes9")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes10")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes11")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes12")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 12
                    Cubo.Insertar()
            End Select
        Loop

        frmMain.statusActividad.Text = "List"
    End Sub
    Sub TraerASP()
        Dim Cubo As New clsCuboContables

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = "Server=" & Server.Trim & "\COMPAC;Database=ct2011ASP; user id = SA; password = Compac123;"

        Dim cmdBuscar As New SqlCommand
        cmdBuscar.Connection = cnConn

        frmMain.statusActividad.Text = "Buscando registros..."
        Application.DoEvents()

        Dim StrSql As String = "SELECT S.Id,E.Ejercicio,S.IdCuenta,C.Codigo,C.Nombre,S.Tipo,Importes1,Importes2,Importes3,Importes4,Importes5,Importes6,Importes7,Importes8,Importes9,Importes10,Importes11, Importes12 FROM SaldosCuentas S INNER JOIN Cuentas C ON S.IdCuenta=C.Id INNER JOIN Ejercicios E ON S.Ejercicio=E.Id ORDER By C.Codigo,S.Tipo"

        cmdBuscar.CommandText = StrSql
        Dim rdBuscar As SqlDataReader

        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        Dim Cont As Integer = 0

        Dim Tipo As Integer = 0

        Do While rdBuscar.Read()
            Cont = Cont + 1
            frmMain.statusActividad.Text = "Insertando registros...." & Cont & " de ASP"
            Application.DoEvents()

            Cubo.Empresa = "Autobuses y Servicios de Pasajeros SA de CV"
            Cubo.Abreviacion = "ASP"
            Cubo.Ejercicio = rdBuscar("Ejercicio")
            Cubo.Codigo = rdBuscar("Codigo").ToString.Trim
            Cubo.Nombre = rdBuscar("Nombre").ToString.Trim
            Cubo.Cuenta = Cubo.Codigo & " " & Cubo.Nombre
            Cubo.CInforme = 0
            Cubo.CImpuestos = 0
            Cubo.Titulo = BuscarStrDatoCitra("SELECT Titulo FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.Subtitulo = BuscarStrDatoCitra("SELECT Subtitulo FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.Mayor = BuscarStrDatoCitra("SELECT Mayor FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.IdOriginal = rdBuscar("Id")

            Tipo = rdBuscar("Tipo")
            Select Case Tipo
                Case 1
                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes1")
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes2")
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes3")
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes4")
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes5")
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes6")
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes7")
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes8")
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes9")
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes10")
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes11")
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes12")
                    Cubo.Periodo = 12
                    Cubo.Insertar()
                Case 2
                    Cubo.Cargos = rdBuscar("Importes1")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes2")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes3")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes4")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes5")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes6")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes7")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes8")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes9")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes10")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes11")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes12")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 12
                    Cubo.Insertar()
                Case 3
                    Cubo.Cargos = rdBuscar("Importes1")
                    Cubo.Abonos = rdBuscar("Importes1")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes2")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes3")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes4")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes5")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes6")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes7")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes8")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes9")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes10")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes11")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes12")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 12
                    Cubo.Insertar()
            End Select
        Loop

        frmMain.statusActividad.Text = "List"
    End Sub
    Sub TraerLCB()
        Dim Cubo As New clsCuboContables

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = "Server=" & Server.Trim & "\COMPAC;Database=ct2012LCB; user id = SA; password = Compac123;"

        Dim cmdBuscar As New SqlCommand
        cmdBuscar.Connection = cnConn

        frmMain.statusActividad.Text = "Buscando registros..."
        Application.DoEvents()

        Dim StrSql As String = "SELECT S.Id,E.Ejercicio,S.IdCuenta,C.Codigo,C.Nombre,S.Tipo,Importes1,Importes2,Importes3,Importes4,Importes5,Importes6,Importes7,Importes8,Importes9,Importes10,Importes11, Importes12 FROM SaldosCuentas S INNER JOIN Cuentas C ON S.IdCuenta=C.Id INNER JOIN Ejercicios E ON S.Ejercicio=E.Id ORDER By C.Codigo,S.Tipo"

        cmdBuscar.CommandText = StrSql
        Dim rdBuscar As SqlDataReader

        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        Dim Cont As Integer = 0

        Dim Tipo As Integer = 0

        Do While rdBuscar.Read()
            Cont = Cont + 1
            frmMain.statusActividad.Text = "Insertando registros...." & Cont & " de LCB"
            Application.DoEvents()

            Cubo.Empresa = "Linea Centro Bellavista SA de CV"
            Cubo.Abreviacion = "LCB"
            Cubo.Ejercicio = rdBuscar("Ejercicio")
            Cubo.Codigo = rdBuscar("Codigo").ToString.Trim
            Cubo.Nombre = rdBuscar("Nombre").ToString.Trim
            Cubo.Cuenta = Cubo.Codigo & " " & Cubo.Nombre
            Cubo.CInforme = 0
            Cubo.CImpuestos = 0
            Cubo.Titulo = BuscarStrDatoCitra("SELECT Titulo FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.Subtitulo = BuscarStrDatoCitra("SELECT Subtitulo FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.Mayor = BuscarStrDatoCitra("SELECT Mayor FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.IdOriginal = rdBuscar("Id")

            Tipo = rdBuscar("Tipo")
            Select Case Tipo
                Case 1
                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes1")
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes2")
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes3")
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes4")
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes5")
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes6")
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes7")
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes8")
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes9")
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes10")
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes11")
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes12")
                    Cubo.Periodo = 12
                    Cubo.Insertar()
                Case 2
                    Cubo.Cargos = rdBuscar("Importes1")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes2")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes3")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes4")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes5")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes6")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes7")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes8")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes9")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes10")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes11")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes12")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 12
                    Cubo.Insertar()
                Case 3
                    Cubo.Cargos = rdBuscar("Importes1")
                    Cubo.Abonos = rdBuscar("Importes1")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes2")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes3")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes4")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes5")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes6")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes7")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes8")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes9")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes10")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes11")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes12")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 12
                    Cubo.Insertar()
            End Select
        Loop

        frmMain.statusActividad.Text = "List"
    End Sub
    Sub TraerOperadora()
        Dim Cubo As New clsCuboContables

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = "Server=" & Server.Trim & "\COMPAC;Database=ct2012Operadora; user id = SA; password = Compac123;"

        Dim cmdBuscar As New SqlCommand
        cmdBuscar.Connection = cnConn

        frmMain.statusActividad.Text = "Buscando registros..."
        Application.DoEvents()

        Dim StrSql As String = "SELECT S.Id,E.Ejercicio,S.IdCuenta,C.Codigo,C.Nombre,S.Tipo,Importes1,Importes2,Importes3,Importes4,Importes5,Importes6,Importes7,Importes8,Importes9,Importes10,Importes11, Importes12 FROM SaldosCuentas S INNER JOIN Cuentas C ON S.IdCuenta=C.Id INNER JOIN Ejercicios E ON S.Ejercicio=E.Id ORDER By C.Codigo,S.Tipo"

        cmdBuscar.CommandText = StrSql
        Dim rdBuscar As SqlDataReader

        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        Dim Cont As Integer = 0

        Dim Tipo As Integer = 0

        Do While rdBuscar.Read()
            Cont = Cont + 1
            frmMain.statusActividad.Text = "Insertando registros...." & Cont & " de OBE"
            Application.DoEvents()

            Cubo.Empresa = "Operadora Bellavista SA de CV"
            Cubo.Abreviacion = "OBE"
            Cubo.Ejercicio = rdBuscar("Ejercicio")
            Cubo.Codigo = rdBuscar("Codigo").ToString.Trim
            Cubo.Nombre = rdBuscar("Nombre").ToString.Trim
            Cubo.Cuenta = Cubo.Codigo & " " & Cubo.Nombre
            Cubo.CInforme = 0
            Cubo.CImpuestos = 0
            Cubo.Titulo = BuscarStrDatoCitra("SELECT Titulo FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.Subtitulo = BuscarStrDatoCitra("SELECT Subtitulo FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.Mayor = BuscarStrDatoCitra("SELECT Mayor FROM CuentasContables WHERE IdCuenta=" & rdBuscar("IdCuenta") & " AND Abreviacion='" & Cubo.Abreviacion & "'")
            Cubo.IdOriginal = rdBuscar("Id")

            Tipo = rdBuscar("Tipo")
            Select Case Tipo
                Case 1
                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes1")
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes2")
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes3")
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes4")
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes5")
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes6")
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes7")
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes8")
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes9")
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes10")
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes11")
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = 0
                    Cubo.Saldo = rdBuscar("Importes12")
                    Cubo.Periodo = 12
                    Cubo.Insertar()
                Case 2
                    Cubo.Cargos = rdBuscar("Importes1")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes2")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes3")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes4")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes5")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes6")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes7")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes8")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes9")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes10")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes11")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = rdBuscar("Importes12")
                    Cubo.Abonos = 0
                    Cubo.Saldo = 0
                    Cubo.Periodo = 12
                    Cubo.Insertar()
                Case 3
                    Cubo.Cargos = rdBuscar("Importes1")
                    Cubo.Abonos = rdBuscar("Importes1")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 1
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes2")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 2
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes3")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 3
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes4")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 4
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes5")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 5
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes6")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 6
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes7")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 7
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes8")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 8
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes9")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 9
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes10")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 10
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes11")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 11
                    Cubo.Insertar()

                    Cubo.Cargos = 0
                    Cubo.Abonos = rdBuscar("Importes12")
                    Cubo.Saldo = 0
                    Cubo.Periodo = 12
                    Cubo.Insertar()
            End Select
        Loop

        frmMain.statusActividad.Text = "List"
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        TraerTodo()


        MsgBox("Registros Importados", MsgBoxStyle.Information, "Aviso")
    End Sub
End Class